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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN mie ee: HE Nas OF revs" tt ts AND were H 


0 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI ON NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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mtaacp 


these routines allocate and deallocate system non-paged 
dynamic memory for acp control blocks. 


Environment: 


starlet operating system, tacludtng privileged system services 
and internal exec routines. note that this routine must be 
called in kernel mode. 


Andrew C. Goldstein, Creation Date: 14-DEC-1976 16:25 


V02-002 REFORMAT R Schaefer 23-Jul-1980 15:53 


Reformat the source. 


Include Files: 
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28 ; Equated Symbols: 
60 ; arg List offsets 


63 
64 
65 
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BYTES =4 
ADDRESS = 4 


SIPLDEF 
SPRDEF 

SRSNDEF 
SWCBDEF 


-PSECT S$LOCKEDC1$,NOWRT,LONG 


: Own Storage: 


"SrSEP=198e 08:96:82 EATANCE.sReSaLLocacman:1 = "89 ¢f 


byte count desired 
address of block being deallocated 


define system ipl names 

define processor register names 
define resource names 

define window block format 

used only for tags to the block type 
and size fields 
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1 | 
5 hed 
4 : ALLOCATE: Allocates the requested block size from system 
5; non-paged dynamic memory. the block is cleared, and 
§ ; the standard size. 
° 3 ; Calling sequence: 
i ; ALL ALLOCATE (ARG1) 
91: Input Parameters: 
3 i ARG1: number of bytes to allocate 
00 94 : Implicit Inputs: 
000 95 ON 
4 39 : Output Parameters: 
ET hee 
000 100 : Implicit Outputs: | 
443 11 3 none 
0000 108 ; Routine Value: 
44 19 3 address of block 
9000 106 ; Side Effects: | 
0000 107 ; block allocated 
0000 108; 
$98 83 
8090 111 ALLOCATE:: 
003c 0000 116 «WORD “M<R2,R3,R4,R5> 3; save the usual registers 
51 04 AC 00 0002 113 108:  # MOVL BYTESCAPS,Ri : get size argument 
7E DOC 0006 114 MOVPSL -(SP) 3; save the psl for wait call below 
0008 115 DSBINT #IPL$_SYNCH,R2 : raise ipl to synchronize 
00000000°9F 16 O00E 116 J8B. a#EXESALONONPAGED S get Bloch fren ence | 
1650 €9 0014 117 BLBC RO,20$ : branch on failure 
017 18 ENBINT #0 3: restore ipl | 
O1A 11 ; clean psl off stack and 
6—€ 51 D0 OO1A 120 MOVL R1, (SP) 3 save returned byte count 
38 DD 91D 121 PUSH Re ; and address 
62 51 00 62 0 2c i ! ¢ MOVC #0, (R2) ,#0,R1, (R2) : zero out the block | 
28 ge 09 3 124 MOVL (SP)+,R0 3; get block address 
08 A oe 125 CVTILW «= (SP) +, ,WCBSW_SIZE(RO) ; put in size word 
04 . $ RET 3 and return 
gig | 
4 ! ; : we get here if memory is not available 
> 
50 93 3¢ dD. (1 § 208: MOVZ2WL #RSNS_NPDYNMEM,RO : get appropriate resource code 
54  Q0000000°9F 00 ! 1 MOVL @#SCHSGL_CURPCB,R4 3 and process pcb address 
00000000°9F 16 134 JSB a*SCHSRWAIT 3; and wait for pool to appear 
C 11 ) 135 BRB 10$ 3; try again 
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tig at | 
F140 ; DEALLOCATE: Deallocates the indicated block of memory back | 
: 1? : to the system pool of non-paged dynamic memory. | 
F 128 ; seca . sequence: 
: ve: 3 ALL DEALLOCATE (ARG1) 
F 198 : Input Parameters: 
0 : 143 : ARG1: address of block being deallocated 
F 149 : Implicit Inputs: 
1B Beeld 
O3F 13 : Output Parameters: 
ti. 
O3F 155: Implicit Outputs: 
Be igi a 
0O3F 138 : Routine Value: 
OO8 180; _ 
OO3F 161 : Side Effects: 
003F 16¢ : block deallocated 
Oar 163 ; 
bos ies 
003F 166 DEALLOCATE:: 
003C OO3F 167 -WORD “M<R2,R3,R4,R5> 3; save registers 
50 04 AC + 0041 168 MOVL DDRESS(AP) ,RO 3; get address of block 
51 08 AO C 0045 199 MOVZWL WCB$W_SIZE(RO),R1 ; get block size 
Oper 170 DSBINT #IPL$_SYNCH,R2 ; raise ipl to synchronize 
00000000'9F 16 O04F 171 JSB a#EXESDEANONPAGED 3 and deallocate thru exec 
0055 7e ENBINT #0 3: restore ipl 
04 0058 17 ET 
0059 =174 
ith 175 
059 176 .END 


ALLOCB 
Symbol table MTAACP.SRCJALLOCB.MAR; 1 


ADDRESS = 4 
ALLOCATE 4 RG 02 
AQB_TYPE = 
TES = 4 
DEALLOCATE F RG 
EXESALONONPAGED eenereee 8 6X 
EXESDE ANONPAGED aerereee 8 8 6X 
FCB_TYPE = $008 4 
IPLS_SYNCH PY 0000 
MVL_TYPE = 00 : 04 
PL = 1 
RSNS_NPDYNMEM = 9 9 
VT_TYPE = 
SCHSGL_CURPCB eeeerere 8 
SCHSRWAIT eeerenee xX = 0 
VCB_TYPE = 0000000 
wceSw_SIZE = 0000000 
WCB_TYPE = 00000001 ° 
sore ro eee nm oeaa eon oe 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O1¢ 41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SLOCKEDC1$ 00000059 («¢ 89.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
dicnepeavennianenmeniiinitmannnimmmmmads 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.09 00:00:00.53 
Command processing 165 0:00:00.79 00:00:05.14 
preted eente vere % 0:00:00: 2 00:00:00:68 
a sor :VUSUU. sUUSUU. 
Pass 44 00:00: 8-38 et aes 
Symbol table output 4 00: te 0:00:00.49 
Psect synopsis output 1 00:00:00.02 0:00:00.02 
Cross-reference output 0 Bb BO be ee 808: 99-88 
Assembler run totals 422 00:00:04.66 0:00:22.58 


The working set Limit was 1200 pages. ; 

13510 bytes (27 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 201 non-local and 2 local symbols. 
33 source lines were read in Pass 1, producing 13 object records in Pass 2. 

0 pages of virtual memory were used to define 18 macros. 
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ALLO 
vaeene Macro Run Statistics 


Macro Library name 
-8255SDUA SYS.OBJJLIB.MLB;1 
$522$0U A538: bSvs-¢ 18 STARLET.MLB;2 
Tole t (all Libraries) 


277 GETS were required to define 9 macros. 
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! Macro Library statistics ! 


ee 


Macros defined 
5 
4 
9 


There were no errors, warnings or information messages. 
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